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TRS-80-Besitzer müssen manche Kleinigkeit bei ihrem Computer 
in Kauf nehmen, die auf die Dauer ärgerlich ist. In den meisten 
Fällen kann man mit wenig Aufwand Abhilfe schaffen. Die im 
folgenden angesprochenen Tips und Kniffe haben sich in der 
Praxis vielfältig bewährt. 


Die Dauer eines Tastendrucks 
wird festgestelll 

Die INKEY-Funktion hat den Nachteil, 
daß nach einmaligem Tastendruck die 
Dauer der Betätigung nicht ermittelt 
werden kann. Möchte man mit einer Ta- 
ste, z. B. in einem Grafikprogramm, eine 
Dauerfunktion erreichen, so kann man 
dieTastatur mit der PEEK-Funktion di- 
rekt ahfragen und in einer Programm- 
schleife einen Befehl so lange ausführen, 
wie die Taste betätigt wird. Die Tabelle 
gibt Aufschluß darüber, welches Argu- 
ment zur Abfrage einer bestimmten Ta- 
ste erforderlich ist. Wird die Taste betä- 
tigt, so erhält man den zugehörigen Wert 
als Resultat der Abfrage. Ist keine Taste 
betätigt, ergibt die PEEK-Abfrage den 
Wert 0. Bild 1 verdeutlich das Prinzip 
d T astaturabfrage durch PEEK. 
Ss^aus einem bestimmten Grund, etwa 
zur Erhöhung der Aufmerksamkeit, eine 
Stringvariable durch einen blinkenden 
Cursor eingelesen werden, so empfiehlt 
sich die Nachbildung des INPUT-Be- 
fehls durch die INKEY-Funktion. Durch 
die Wahl der Schleifenlänge kann man 
die Blinkfrequenz des Cursors beeinflus- 
sen. Bild 2 zeigt, wie das Einlesen eines 
Strings mit der INKEY-Funktion be- 
werkstelligt wird. 

Ausgabe im technischen Format 

Obwohl das TRS-80-Basic die komforta- 
ble PRINT-USING-Aiuveisung beinhal- 
tet, ergeben sich bei der Ausgabe von 


Zahlen manchmal Schwierigkeiten. Von 
der Technik her schätzt man das Arbei- 
ten mit den Kürzeln piko (10~ 12 ), nano 
(10' 9 ), Mega ( 1 0 6 ), Tera (10 9 ), Giga (10 12 ). 
Von Kürzel zu Kürzel unterscheidet sich 
der Exponent um jeweils 3. Eine auto- 
matische Anpassung wäre deshalb in 
vielen Fällen wünschenswert. Das in 
Bild 3 dargestellte Unterprogramm erle- 
digt das. Übergeben wird die auszuge- 
bende Zahl Z. ebenfalls verwendet wer- 
den die Variablen ZZ und V. Letzteres 
kann eine Ganzzahlvariable sein, ledig- 
lich ZZ und Z müssen vom selben Typ 
sein, also entweder von einfacher oder 
doppelter Genauigkeit. 

Tastenprellen und Ladeprobleme 

Vielen mag das Tastaturprellen beim 
TRS-80 schon Kopfzerbrechen bereitet 
haben. Sind die Tastenkontakte ver- 
schmutzt. so werden Buchstaben zum 
Teil doppelt geschrieben. Tandy emp- 
fiehlt dagegen das Reinigen der Tasta- 
turkontakte oder die Verwendung eines 
kleinen Maschinenspracheprogramms 
KBFIX. Dieses Programm konnte ich von 
Tandy kostenlos erhalten, und es arbei- 
tet zu meiner vollen Zufriedenheit. Ist 
das Programm geladen, wird das Tasta- 
turprellen wirkungsvoll per Software 
eliminiert. 

Ein anderes beinahe noch kritischeres 
Problem ist das Laden der Programme 
vom Kassettenrecorder. Dabei ist die 
Lautstärke am Recorder peinlich genau 


10 n=PEEK<1433?> IF A=2 THEN PR INT"A" , GOTO 10 Bild 1. Das Programm gibt 
20 If n = 4 THEN PR IN T" B" ; GOTO 10 so lange einen der Buch- 

staben A, B oder C aus, 

30 IF *=8 THEN PRINT-C"; GOTO 10 wie die entsprechende 

40 GOTO10 Taste gedrückt ist 


Tabelle zur Tastaturabfrage 


Zeichen 

PEEK() 

Wert 

@ 

14337 

1 

A 

14337 

2 

B 

14337 

4 

C 

14337 

8 

D 

14337 

16 

E 

14337 

32 

F 

14337 

64 

G 

14337 

128 

H 

14338 

1 

1 

14338 

2 

J 

14338 

4 

K 

14338 

8 

L 

14338 

16 

M 

14338 

32 

N 

14338 

64 

0 

14338 

128 

P 

14340 

t 

Q 

14340 

2 

R 

14340 

4 

S 

14340 

8 

T 

14340 

16 

U 

14340 

32 

V 

14340 

64 

w 

14340 

128 

X 

14344 

1 

Y 

14344 

2 

z 

14344 

4 

frei 

14344 

8 

frei 

14344 

16 

frei 

14344 

32 

frei 

14344 

64 

frei 

14344 

128 

0 

14352 

1 

1 ! 

14352 

2 

2 " 

14352 

4 

3 * 

14352 

8 

4 S 

14352 

16 

5% 

14352 

32 

6 & 

14352 

64 

7 1 

14352 

128 

8( 

14368 

1 

9) 

14368 

*> 

: * 

14368 

4 

; + 

14368 

8 

, < 

14368 

16 

- = 

14368 

32 

. > 

14368 

64 

/? 

14368 

128 

ENTER 

14400 

1 

CLEAR 

14400 

2 

BREAK 

14400 

4 

T 

14400 

8 

i 

14400 

16 

4 - 

14400 

32 

— * 

14400 

64 

SPACE 

14400 

128 

SHIFT 

14464 

1 

frei 

14464 

2 

frei 

14464 

4 

frei 

14464 

8 

frei 

14464 

16 

frei 

14464 

32 

frei 

14464 

64 

frei 

14464 

128 
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Z>. * 1-'»' ;«/ j :F J» A*=>"ThEN NEXT ElSE GOSUS I08:NEXT 

38 FFIffT CrtF-*f J5> i rFGR N=1 TO50 :A*= INKEY* i I F A*="ThEN NEXT ELSE GOSUB 100:NEXT 
40 GOTO 20 

100 IF ASC<A*>=13 THEN PRINT CHR*( 14) ; AS ; : GOTO 130 

110 IF ASC<A*>=8 AND LENCB*>>0 THEN B*=LEFT* C B* , LEN< B* > -I >: PR INTA* t : RETURN 
120 IF ASC<A*><>8 THEN B*=B*»A* : PRINTA* ; 

125 RETURN 

130 REM STRING STEHT ALS B* BEREIT, NACH BEARBEITUNG MIT RETURN ZURUECKKEHREN ! 


Bild 2. Das Programm liest 
einen String ein, dabei wird 
ein blinkender Cursor er- 
zeugt - Enter schließt den 
String ab 


60000 IF 2=0 THEN V=1 GOTO60010 ELSE Z2=ftBS (Z> : V=F IX (LOG (22) /LOG ( 10) ) -F IXtLOG 
C22) /LOG ( 10> /3> »3*2 IF ZZ<1 THEN V=V+ 2 
60010 PRINTUSING STR ING* (V , "tt" >♦". tMMt ft Tt" . Z ■ RETURN 


Bild 3. Das Unterprogramm 
gibt die Zahl Z im techni- 
schen Format aus 


einzustellen, da sonst immer wieder La- 
defehler auflreten. Auch ist die Lautstar- 
ke je nach Bandsorte verschieden zu 
wählen. Um so erfreuter war ich, als ich 
las, daß Tandy eine Zusatzplatine ein- 
haut. Der kostenlose Einbau (er erforder- 
zwar einige Schreibarbeit meinerseits, 
'Tfa die Firma Tandy nicht sofort reagier- 
te) hat sich durchaus gelohnt. Ladefehler 
treten jetzt nur noch in Ausnahmefällen 
auf. 

Weitere Hardwareverbesserungen ein- 
fachster Art sind der zusätzliche Einbau 
zweier Tastschalter rechts neben der Ta- 
statur. In der Klappe zur Erweiterung 
des TRS-80 befindet sich ein Taster, der 
beim Schieflaufen des Ladevorgangs 
bzw. eines Maschinensprachepro- 
gramms betätigt werden kann und einen 
nichtmaskierbaren Interrupt am Prozes- 
sor auslöst. Die Betätigung dieses Ta- 
sters ist recht umständlich: Man muß 
jedesmal die Klappe öffnen und ihn auf 
der Rückseite mühsam ertasten. Deshalb 
kann man einen einfachen Taster paral- 
lel dazu legen und neben der Tastatur 
montieren. Dies empfiehlt sich sehr für 
perimente mit Maschinensprache, 
^er Prozessor kann damit jederzeit ohne 
Programmverlust unterbrochen werden. 
Bekannt ist jedem TRS-8ü-Anwender 
die nach dem Einschalten des TRS-80 
erscheinende Frage: MEMORY S1ZE?, 
die zur Reservierung eines vor Basic ge- 
schützten Arbeitsbereichs für Maschi- 
nensprache dient. Ausgelöst wird dieser 
Vorgang hardwaremäßig nach dem Ein- 
schalten durch den sogenannten Power- 
On-Reset. Arbeitet man viel mit Maschi- 
nensprache, so sind manchmal Umreser- 
vierungen nötig. Dies würde ein Aus- 
und Einschalten der Anlage erforderlich 
machen, wobei die Anlage einige Sekun- 
den ausgeschaltet bleiben muß. Hier 
kann man einen weiteren Taster einbau- 
en, der diesen Power-On-Reset simu- 
liert. Dadurch braucht man die Anlage 
nicht an der Rückseite ein- und auszu- 
schalten. 

Betrachten wir einmal den Schaltungs- 
ausschnitt in Bild 4: Wird das Gerät ein- 


geschaltet, so ist C42 entladen: am Ein- 
gang von Z53 liegt also L-Pegel an, damit 
auch am Ausgang von Z52. Dies veran- 
laßt den Prozessor dazu, mit der Befehls- 
ausführung bei Adress e 0000 zu begin- 
nen, sobald der Reset-Eingang wieder 
H-Pegel erhalt. Dies geschieht dadurch, 
daß C42 über R47 langsam aufgeladen 
wird. Im Betriebszustand ist C42 also 
geladen. Legt man jetzt einen Taster par- 
allel zu C42. kann man ihn auch wäh- 
rend des Betriebs entladen und damit 
den Einschaltvorgang simulieren. Dazu 
muß man C42 auf der Platine suchen 
und eine entsprechende Leitung anlö- 
ten. Ich verwende hierzu eine ubge- 
schirinte Leitung, damit im Videoteil 
keine wilden Schwingungen ausgelost 
werden. Doch Achtung! Versehentliches 
Betätigen dieses Tasters löscht ein Basic- 
Programm im Speicher. Auch verliert 
man durch einen solchen Eingriff die 
Garantie des Herstellers. 

Der Speicher wird erweitert 

Bekanntlich kann ein 4-KByte-Modell 
auf 16 K erweitert werden. Dazu werden 
die Speicherchips ausgetauscht. Zusätz- 
lich müssen zwei Shunts ausgetauscht 
werden. Führt man diese Arbeiten selbst 
aus, kann man eine Menge Geld sparen! 
Benötigt werden acht Chips vom Typ 
4116 (450 ns oder schneller). Es handelt 
sich um dynamische NMOS-RAMs. 

Beim Einbau sind unbedingt die Hand- 
habungsregeln von MOS-Bausteinen zu 



Bild 4. So wird der Power-On-Reset beim 
TRS-80 erzeugt 


beachten, d. h. auf jeden Fall ist stati- 
sche Aufladung zu vermeiden. Man ent- 
fernt die alten Speicherchips Z13 bis 
Z20 und setzt unter Beachtung der Rich- 
tung (Kerbe) die neuen IGs ein. Dann 
wechselt man die DIP-Shunts A3 und 
A71 aus. Das folgende gilt nur für die 
D-Version des TRS-80 (letzter Buchstabe 
der Nr. an Unterseite des Gehäuses) und 
„BASIC LEVEL II“: Bei A3 sind sämtli- 
che Kontakte zu überbrücken, bei A71 
sind Brücken gemäß Bild 5 herzustellen. 
Möchte man keine Shunts kaufen, so 
kann man die Verbindung mit Schalt- 
draht hersteilen. Korrekte Verbindungen 
sind die erste Voraussetzung für den Be- 
trieb, sonst läuft der Computer nicht 
mehr. Hat man eine andere Platinenver- 
sion oder kein Level-2-Basic, so sind die 
Brücken anders herzustellen! Die Funk- 
tion des eingebauten neuen Speichers 
läßt sich durch die Eingabe von PRINT 
MEM grob überprüfen: Bei leerem Ar- 
beitsspeicher muß die Zahl 15572 er- 
scheinen. 

Literatur 

[1 ) TRS-80 micro Computer technical releren- 
ce handbook. Radio Shack. 

[2] Stübs. Martin: Programmieren mit TRS- 
80. Ing. W. Hofacker GmbH 
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Bild 5. Erweitert man den Speicher des TRS- 
80 von 4 KByte auf 16 KByte, dann müssen 
bei der D-Version (letzter Buchstabe der 
Nummer auf der Unterseite des Gehäuses) 
die eingezeichneten Verbindungen herge- 
stellt werden 
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lieh, wenn auch in etwas abgevvandelter 
Form. Andererseits weist das Microsoft- 
Basic ein paar unerklärliche Schwächen 
auf. Beispielsweise entdeckten wir im 
Zusammenhang mit der Rechenge- 
schwindigkeit. dall hei Verwendung von 
Zahlen in Rechenoperationen nur ganz- 
zahliggerechnet wird (beispielsweise ist 
bei B = 10 3 das Resultat B = 3). Man 
muß also vorher die Zahlen in Variable 
stecken und die Operationen möglichst 
ausschließlich mit Variablen durchfüh- 
ren: also bitte nur B/2 oder so etwas! 

Zum anderen ließ sich einfach kein 
Trick finden, wie File-N'amen auf der 
Diskette per Variable definiert werden 
können das Testobjekt verlangte zum 
Schreiben von Files grundsätzlich eine 
Direkteingabe per Tastatur oder Pro- 
w gramm. So etwas war beim Atari-Basic 
hingegen problemlos möglich gewesen. 


Andere Programmiersprachen 

Nicht verschwiegen werden soll, daß es 
auch noch ein Pascal und einen Assem- 
bler für die Atari-Mikros gibt sowie eine 
ganze Palette von Hardware-Zubehör. 
Ebenfalls zu erwähnen sind die ver- 
schiedenen Spiele (nicht zu verwech- 
seln mit den Video-Spielen), die zum 
Teil die Grafikmöglichkeiten bis zum 
Optimum nutzen und auf dem Bild- 
schirm Erstaunliches bewerkstelligen. 
Vielleicht doch hin und wieder eine 
Möglichkeit für den geplagten Familien- 
vater und angehenden Computerspezia- 
listen. mit Beistand des Juniors so ein 
Gerät in die Wohnstube zu bringen... 


Immer mit der Ruhe 

Beim Umgang mit der Diskettenstation 
810 kommt einem immer wieder dieser 
Satz in den Sinn. Als 100-m-Sprinter 
hätte sie jedenfalls keine Chance. Ande- 
rerseits gab es auch keine Schwierigkei- 
ten mit Schreib- oder Lesefehlern auf 
jeglichen Disketten oder bei der Daten- 
übertragung. Dieses Konzept ist wohl 
mehr auf Betriebssicherheit ausgelegt. 
Setzt man das Laufwerk in Aktion, so 
wird man auch nie über die Operations- 
dauer im Unklaren gelassen, es ist nicht 
zu überhören. 

Das DOS zum Betrieb der Diskettensta- 
tion ist recht umfangreich, es ist aber 
nicht immer vollständig im Arbeitsspei- 
cher des Rechners. Im Rechner selbst 
befinden sich nur die Teile, die zum 
Schreiben und Lesen von Programmen 


oder Dateien erforderlich sind. Es gibt 
aber noch eine ganze Reihe von nützli- 
chen Routinen zum Duplizieren von Da- 
teien oder ganzen Disketten, umbenen- 
nen von Dateien oder Schützen dersel- 
ben vor Schreihzugriff und einiges ande- 
re mehr. Braucht man diese Routinen, so 
werden diese hinzugeladen. 

Doch was passiert, wenn man dies in- 
mitten einer Programmentwicklung be- 
nötigt (man hat beispielsweise keine for- 
matierte Diskette zum Speichern des 
Programmes mehr)? Der Inhalt des Rech- 
nerspeichers wird dann auf die momen- 
tan einliegende Diskette gerettet. Auf 
dieser ist ein Bereich speziell für diesen 
Zweck reserviert. Ist die Diskette forma- 
tiert, wird das Programm wieder in den 
Rechner zurückgeholt (von der anderen 
Diskette natürlich). Auf der neuen Dis- 
kette läßt sich das Programm nun regulär 
ablegen. Man kann den Bereich zum Ret- 
ten des Rechnerspeicher-lnhaltes auch 
weglassen und gewinnt damit zusätzli- 
chen Platz auf der Diskette, muß aber in 
Kauf nehmen, unter Umständen auch 
einmal einen Speicherinhalt zu ver- 
lieren. 

Aber nicht ganz ungefährlich ist dieses 
Verfahren: Durch Vertauschen der Dis- 


ketten ist es möglich, einen leeren Spei- 
cher auf die Diskette zu übertragen und 
eventuell vorhandene Daten zu über- 
schreiben. Da dit! Diskettenstation alle 
Disketten im richtigen Format akzep- 
tiert, d. h. mit der richtigen Formatie- 
rung, wird dieser Fehler auch nicht er- 
kannt. Bei derartigen Aktionen ist also 
immer höchste Vorsicht geboten, denn 
leicht ist die Arbeit von Stunden zunich- 
te gemacht 


Grafik ist Trumpf 

Ganz sicher ist ein Mikrocomputer wie 
der Atari-800 nicht jedermanns Ge- 
schmack. Wie immer muß man abwä- 
gen. welche Eigenschaften für den An- 
wender am wichtigsten sind. Als Spiel- 
gerät allein ist er sicher zu teuer, aber in 
der grafischen Darstellung ist er einer 
der Besten in seiner Klasse. Jeder spricht 
heute davon, daß die Grafik in Zukunft 
mehr und mehr Bedeutung haben wird. 
Nun, hier ist einer, der es bereits kann. 

Literatur 

(1 J Andree, Hans-Joachim: Kurvenentwick- 
lung auf Bildschirm und Plotter, rac 1982, 
Heft 5, Seite 42. 


Repeat-Funktion für TRS-80 


i Die Repeat-Funktion, d. h. die wieder- 
holte Ausgabe eines Zeichens bei länge- 
rem Tastendruck, ist zwar eine sehr 
nützliche Angelegenheit, aber leider bei 
den meisten Tischcomputern nicht vor- 
handen. Sie kann durch Software aber 
leicht nachgerüstet werden. 

Ein Maschinenprogramm, das diese 
Funktion beim TRS-80 ermöglicht, wird 
vom abgedruckten Basic-Programm er- 
zeugt. Nachdem es geladen und initiali- 
siert ist, wird der Tastendruck „wieder- 
holt“, sobald eine Taste länger als 
0,5 Sekunden gedrückt Ist. Die Wieder- 


holfrequenz beträgt ca. 15 Hz. Die Zeit 
bis zum Einsatz der Wiederholung und 
die Wiederholfrequenz können mit 
POKE 32764.X bzw. mit POKF. 32738, X 
geändert werden. 

Besonders beim Editieren hat sich die 
Repeat-Funktion als sehr nützlich erwie- 
sen. da mit ihrer Hilfe der Cursor schnell 
und einfach an die richtige Stelle ge- 
bracht werden kann. 

Bevor das Programm geladen und gestar- 
tet wird, muß genügend Speicherplatz 
durch MEM SIZE 32694 reserviert wer- 
den. Luidger Röckrath 


lo HEM COF'VRlbHI IO LUIDGEH RUECKRATH. 

20 Kt M KEHEATRJNI UÜN 
30 HEM MEM SIÜE: 32694 

40 DMIA33, 196. 127 , '34. 22. 64. 217. 22, 0,217, 195,2 
5" DATa56, 22.0. 10.95, 174, 115.32,20,20, 44,203, 
60 DATM43. 124, 1U1 , 62. ", 32. 3, 46. 128, 122.217,20 
70 DATA96, O, 193. 10. 163.40,6, 122,7, 7,205,254, 3 
80 DAT «420 1 

90 F OK 1 »326951 0 '276 . : REMDA: PO» L 1 . A: NE » I 
100 POKE 16526, 185»PUKE16527. 127»A«USR(0> 


04.6,33.54,64, 1,1 
1.242,204. 127,217 
1.95, 197, 1,0.5,205 
,217,33,0.4 Ü ? ,217 


Dieses Basic-Programm erzeugt den Maschinencode für die Repeat-Funktion 
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Reinhard Grabowski 

Rekursive 

PregrsEußraiie- 
rjEstg lü'ii CSi£S3 

Rekursion - was ist das? Den meisten dürfte schon einmal ein 
Fernsehbild begegnet sein, das einen Fernsehbildschirm zeigt, 
auf dem wiederum der gleiche Bildschirm abgebildet ist, der 
wiederum den gleichen Bildschirm enthält. Ein solches - sich 
)lbst abbildendes - Bild ist ein rekursives Bild und dient als 
"anschauliches Muster für einen sich selbst wiederholenden Vor- 
gang. 


Auch hei der Programmierung sind sich 
selbst wiederholende Rechenprozesse 
oder, allgemeiner, Datenverarbeitungs- 
prozesse denkbar. Und nicht nur denk- 
bar: Sie werden auch in der Praxis ange- 
wandt, wenn auch - nach den Erfahrun- 
gen des Verfassers -bislang nur in be- 
scheidenem Umfang. Ein einfacher, ver- 
trauter rekursiver Rechenvorgang ist ei- 
ne sich selbst aufrufende Funktion. Zum 
Beispiel in der Anweisung 
LET Y = EXP(EXP(EXP(X))). 

Alle besseren Basic-Interpreter „verste- 
hen" diese Anweisung. (Sie kann aber 
Sei größerem Argument X zu einem 
^^berlauf führen!) 

GOSUB und Rekursion 

Diese Art des rekursiven Aufrufes einer 
Funktion wird als derart selbstverständ- 
lich angesehen, daß er meist nicht mit 
dem Begriff Rekursion verknüpft wird. 
Weniger selbstverständlich ist der Vor- 
schlag, in einem (durch GOSUB aufgeru- 
fenen) Unterprogramm mit GOSUB die- 
ses Programm erneut aufzurufon, also 
ein Unterprogramm der Gestalt 

1000 REM Beginn Unterprogramm 

1001 ... 

1100 GOSUB 1000 
1999 RETURN: REM Ende Unterpro- 
gramm 
zu schreiben. 

Sie als Leser werden vielleicht spontan 
einwenden, daß diese Art der Program- 
mierung in Basic nicht möglich sei. Auf 


meinen Hinweis, daß für die Ausfüh- 
rung der Anweisung 
1100 GOSUB 1000 

als Sprungbefehl mit Rücksprung kein 
formaler Hinderungsgrund vorliege, 
werden Sie nach einigem Überlegen 
vielleicht einwenden, daß dieser 
Sprungbefehl mit jedem erneuten Aufruf 
einen weiteren Aufruf einschließt und 
daher das Aufrufen kein Ende findet. 
Allerdings wird ein nicht programmge- 
mäßes Ende erzwungen durch eine Feh- 
lermeldung mit dem Hinweis, daß der 
für die GOSUB-Verwaltung zur Verfü- 
gung stehende Speicherbereich voll be- 
setzt sei. Dieser Einwand ist berechtigt, 
ln der Tat, wenn eine Aufgabe in rekur- 
siver Programmierung gelost werden 
kann, dann kann die Aufgabe nur dann 


sinnvoll gelöst werden, wenn innerhalb 
des Programmes eine Entscheidung vor- 
gesehen ist. daß nach Erfüllung einer 
Bedingung das rekursive Aufrufen ein 
Ende finde Die Erfüllung einer solchen 
Bedingung kann zum Beispiel durch den 
Wert „wahr" (entsprechend -1 in der 
logischen Variablen LV) gekennzeichnet 
werden. Dann bewirkt zum Beispiel eine 
Anweisung der Form 
1099 IF LV < > 0 THEN GOTO 1999, 
daß die Folge rekursiver Aufrufe unter- 
brochen wird. 

Zurück mit RETURN' 

Vielleicht haben Sie als Leser aber ge- 
dankliche Schwierigkeiten einzusehen, 
daß nach den mehrfach wiederholten 
(Vorwärts-)Sprungen bei GOSUB die 
entsprechende Anzahl von Rücksprün- 
gen durchgeführt wird, weil diesen ge- 
schachtelten (Vorwärts- (Sprüngen keine 
geschachtelten Anweisungen RETURN 
entgegenstehen. Bei näherer Betrach- 
tung wird jedoch erkennbar, daß durch- 
aus eine einzige Anweisung RETURN 
genügt. 

Dies sei am Schema in Tabelle 1 erläu- 
tert. Beim erstmaligen Aufruf des Unter- 
programms (durc h ein übergeordnetes 
Programm) wird das Unterprogramm zu- 
nächst bis zur Anweisung 1100 ..abgear- 
beitet", dargestellt durch einen Pfeil par- 
allel zur Abfolge der Anweisungs-Num- 
mern. Dann erfolgt ein erster Selbstauf- 
ruf, also ein (Rück-)Sprung zur Anwei- 
sung 1000. Dies kennzeichnen wir im 
Schema durch einen schrägen Pfeil hin 
zur ersten Zeile In einer benachbarten 
„Ebene“. Wiederum wird das Programm 
bis zur Anweisung 1100 abgearbeitet. 
wiederum c'urc h *> 8 r • »'}*•'' ra;, 
Anweisungsfolge gekennzeichnet. Die 
ser Vorgang wiederholt sich so oft, b ; s 
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schließlich in einer Ebene, in unserem 
Schema in der Ebene 3. die Bedingung 
LV = - 1 (wahr) erfüllt ist. Die bedingte 
Sprunganweisung 1099 bewirkt eine 
weitere Bearbeitung ab der Anweisung 
1999 RETURN, die einen Rücksprung zu 
der Anweisung nach dem letztmals Vor- 
gefundenen GOSUB bewirkt, also zur 
Anweisung 1101 in Ebene 2. Der darauf 
folgende Programmteil wird abgearbei- 
tet; die letzte Anweisung, 1999 RE- 
TURN. bewirkt wiederum einen Rück- 
sprung zu der Stelle des von dieser Ebe- 
ne gesehenen letzten Aufrufes. Die ent- 
sprechenden Pfeile in unserem Schema 
zeigen, daß durch die Rücksprünge 
schließlich wieder die Programm- 
Ebene 1 und danach wieder das überge- 
•dnece Programm erreicht wird. 


Der Rückkehr-Adreß-Keller 
ist begrenzt 

Entscheidend für den korrekten Ablauf 
der Sprunge und Rücksprünge ist offen- 
sichtlich die Eigenschaft des Basic-Inter- 
preters, sich alle Aufrufe mit GOSUB zu 
merken und auch deren Reihenfolge, um 
beim Auftreffen auf eine RETL'RN-An- 
weisung zu demjenigen GOSUB zurück- 
zuspringen, das in der Merkliste als das 
letzte vermerkt ist. Danach wird dieses 
GOSUB in der Merkliste gelöscht, so daß 
ein vorhergehendes GOSUB in der Liste 
nun als das letzte erscheint. Die Merkli- 
ste, also der zugehörige Speicherbereich, 
ist bei den Basic-Interpretern beschränkt 
und nicht sehr groß. Die maximale An- 
zahl. die vermerkt werden kann, ist von 
Rechnertyp zu Rechnertyp verschieden, 
yoisch ist eine Anzahl von 20. 

W J * 

c,s scheint nun. daß der rekursive Aufruf 
von Unterprogrammen in Basic kein 
Problem darstellt. Das ist allerdings nur 
.eaingt richtig. Denn wir müssen noch 
beachten, daß Basic keine echten Unter- 
programme ermöglicht, sondern nur 
Sprünge mit Rücksprüngen. Bei echter 
Unterprogrammtechnik werden die in- 


Tabcllt- 2 


Platz- 

index 


Zahlenfolge 

vorher 


Zahlenfolge 

nachher 


nerhalb des Unterprogramms aufgetrete- 
nen Variablen völlig unabhängig von 
gleichnamigen Variablen im übergeord- 
neten Programm und völlig unabhängig 
von anderen Unterprogrammen behan- 
delt. Man sagt auch, daß sie nur lokal 
definiert seien. Der Inhalt einer gleich- 
namigen Variablen im aufrufenden Pro- 
gramm wird beim Aufruf des Unterpro- 
grammes vom Betriebssystem sozusagen 
verwahrt, solange, bis das Unterpro- 
gramm abgearbeitet ist. Während des 
Unterprogramm-Laufes nimmt dann die- 
se Variable Inhalte an, die vom Ablauf 
des Unterprogrammes vorgesehen sind. 
Bei Rückkehr in das aufrufende Pro- 
gramm wird automatisch der zwischen- 
zeitlich verwahrte Wert dieser Variablen 
wieder neu zugewiesen. 

Variablen: In Basic immer global 

Dieses zwischenzeitliche Verwahren 
kennt Basic nicht, eine lokale Definition 
von Variablen ist in Basic nicht möglich. 
Variablen gleichen Namens werden im 
aufrufenden Programm und im Unter- 
programm nicht getrennt behandelt. 

Daß in Basic die Variablen nicht lokal, 
sondern immer nur für das gesamte Pro- 
gramm - also global - definiert werden 
können, ist ein Umstand, den wohl jeder 
Basic-Programmierer bei der Fehlersu- 
che hat erfahren und sich einprägen 
müssen. Bei rekursivem Aufruf ist dieser 
Umstand besonders kritisch, denn 
zwangsläufig sind hier alle Variablenna- 
men in allen Aufruf-Ebenen gleich. Der 
Programmierer hat, wenn er die rekursi- 
ve Programmiertechnik nicht scheut, 
selbst durch geeignete zusätzliche An- 
weisungen dafür zu sorgen, daß die im 
zweiten Programmteil einer Ebene noch 
benötigten Variablen-Inhalte aus dem er- 
sten Programmteil dieser Ebene wieder 
verfügbar sind Der Programmierer muß 
also selbst die Verwahrung übernehmen. 
Dies ist mit Feldvariablen möglich, de- 
ren jeweiliger Index die Programm-Ebe- 
ne kennzeichnet, aus welcher der Wert 


Tabelle 3 


Platz- 

index 


Zahlenfolge 

vorher 


000 

001 

010 

011 

100 

101 

110 

111 


Zahlenfolge 

nachher 


000 

010 

100 

110 

001 

011 

101 

111 


stammt, der an dieser Stelle des Feldes 
gespeichert, also bis zur Rückkehr in 
dieser Ebene verwahrt wird. Sinnvoll 
bleibt das natürlich nur, wenn nicht Zu- 
viele Werte je Ebene verwahrt werden 
müssen. 

Ein Beispiel zur Rekursion 

Ein instruktives Beispiel für eine rekur- 
sive Anwendung eines Algorithmus, al- 
so einer Rechenvorschrift oder einer Da- 
tenverarbeitungsvorschrift, bietet die 
Lösung des folgenden Problems: 

Eine Zahlenfolge Z(l), I = 0...N- 1, beste- 
he aus N = 2 m Elementen. Sie soll so 
umgeordnet werden, daß diejenigen Ele- 
mente, die auf Plätzen mit geradem In- 
dex liegen, auf die obere Hälfte der Plät- 
ze, also auf die Plätze mit den Indizes I 
= 0...(N'2)-1 zu liegen kommen. Not- 
wendig müssen dann die Elemente, wel- 
che zu Anfang auf den Plätzen mit unge- 
radem Index lagen, in die untere Hälfte 
gerutscht sein. Dabei soll aber die Ord- 
nung in beiden Teilfolgen erhalten 
bleiben. 

Nehmen wir als Zahlenfolge die Zahlen 
von 0 bis 7, also mit 2 3 = 8 Elementen. 
Anfangsfolge und resultierende Folge 
sind in Tabelle 2 dargestelit. 

Ein derartiges Umordnen ist auf vielerlei 
Art möglich. Wir verlangen aber, daß für 
das Umordnen kein nennenswerter zu- 
sätzlicher Speicherplatz benötigt wird, 
daß also die Umordnung durch paarwei- 
ses Vertauschen vollzogen wird, und wir 
verlangen weiter, daß ein möglichst 
schnelles Verfahren gefunden wird. 
Diese Aufgabenstellung tritt bei der nu- 
merischen Fouriertransformation reell- 
wertiger diskreter Signale auf. 

Ein effizienter Algorithmus mit paarwei- 
ser Vertauschung soll im folgenden dar- 
gelegt werden. Dazu werden die umzu- 
ordnenden Zahlen in Tabelle 3 binär 
dargestellt. 

Man erkennt, daß die neue Folge sich 
von der alten dadurch unterscheidet, 
daß die erste und die letzte Spalte in der 
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Binär-Darstellung vertauscht sind. Wie 
läßt sich dieses Resultat durch paarwei- 
ses Vertauschen der Zahlen erreichen? 
Naheliegend ist der Gedanke, die Zahlen 
so zu vertauschen, daß je eine ungerade 
Zahl (Endziffer 1) in der oberen Hälfte 
mit einer geraden Zahl (Endziffer 0) in 
der unteren Hälfte vertauscht wird, ln 
Tabelle 4 ist das Ergebnis dieser Opera- 
tionsfolge in der zweiten Spalte zu se- 
hen. Dieser Vertauschungsvorgang laßt 
sich wie folgt benennen: 

„Zweites Element aus erster Hälfte mit 
erstem Element aus zweiter Hälfte ver- 
tauschen: danach jeweils übernächstes 
Element aus erster Hälfte mit übernäch- 
stem Element aus zweiter Hälfte vertau- 
schen". 

Mit diesem Vertauschungsvorgang ist 
r unser Endresultat noch nicht er- 
reicht. Wir erreichen es, wenn der ge- 
nannte Vertauschungsvorgang wieder- 
holt wird, allerdings nicht für die gesam- 
te Folge, sondern getrennt für die obere 
und die untere Teilfolge. Dann resultiert 
die Folge in der dritten Spalte der Tabel- 
le 4, die ersichtlich das Resultat dar- 
stellt, wie ein Vergleich mit Tabelle 3 
zeigt. Man überzeuge sich, daß der ge- 
nannte Vertauschungsvorgang auch bei 
2 4 = 16 Elementen zum Ziel führt. In 
diesem Fall ist ein weiterer mit einer 
Halbierung verbundener Durchgang er- 
forderlich. 


Der Algorithmus... 

Der mit Worten beschriebene Vertau- 
schungsvorgang ist der hier anwendbare 
^orithmus, der wiederholt angewen- 
s Tat wird, und zwar zuerst auf die ganze 


Folge und danach auf die durch Halbie- 
rung entstehenden Teilfolgen. Die Auf- 
einanderfolge der Operationen 

- Algorithmus auf alle Teilfolgen an- 
wenden; 

- alle Teilfolgen in je zwei weitere Teil- 
folgen zerlegen, 

ersichtlich eine geschachtelte Opera- 
tionsfolge, läßt sich einfach program- 
mieren, indem man sie rekursiv pro- 
grammiert. Die Vertauschung eines Paa- 
res wird mit folgender Verbundanwei- 
sung erreicht: 


440 

REM 

Vertauschung 

441 

ZS 

= Z(Z1) : 


Z(Z1) 

= Z(Z2) : 


Z(Z2) 

= ZS 

Die Variablen Zl 

und Z2 enthalten das 


Indexpaar, zwischen denen vertauscht 
werden soll, ZS ist eine Hilfsvariable 
zum Zwischenspeichern. Dieser Vor- 
gang muß natürlich für alle relevanten 
Indizes in der oberen und unteren Hälfte 
der aktuellen Teilfolge wiederholt wer- 
den. Die Wiederholung läßt sich durch 
die Anweisung FOR...NEXT program- 
mieren: 


400 

REM 

Vertauschungsfolge 

410 

FOR ZI 

= 0 TO ZL 4 - 1 

420 

Zl 

= ZI + ZI + 1 + ZA 

430 

Z2 

= Zl - 1 + ZL/2 

440 

REM 

Vertauschung 


(siehe oben) 

450 

NEXT 



Die Variable ZI ist der Schleifenindex, in 
ZL ist die Länge der aktuell betrachteten 
Teilfolge gespeichert, also die Anzahl 
der Elemente in der Teilfolge, die - weil 
aus einer Teilfolge mit 2 ZM Elementen 
durch Halbieren hervorgehend - wieder- 
um eine Potenz zur Basis 2 ist. ZA ent- 
hält den Anfangsindex der aktuellen 
Teilfolge. Die Anweisungen zur Berech- 
nung des Indexpaares Zl und Z2 zeigen, 
daß Zl immer eine gerade Zahl und Z2 
immer eine ungerade Zahl ist, wenn ZA 
gerade ist Letzteres ist aber immer der 
Fall, weil ZA der Anfangsindex einer 
durch Halbieren entstandenen Teilfolge 
ist. Der Programmteil 

400 REM Vertauschungsfolge 

repräsentiert unseren Algorithmus, an- 
gewandt auf eine Teilfolge mit Anfangs- 
index ZA. 


... ist rekursiv 

Die Halbierung der Anfangsfolge bzw. 
einer Teilfolge in weitere zwei Teilfol- 
gen und die Anwendung des Algorith- 
mus führen wir geschachtelt durch. Da- 
mit ist gemeint, daß die Anfangsfolge - 
auf die unser Algorithmus angewandt 
worden ist - in zwei Teilfolgen zerlegt 
wird und zunächst nur die obere Teilfol- 
ge dem Algorithmus unterworfen und 
weiter in zwei Teilfolgen zerlegt wird. 
Dabei wird wiederum nur die jeweils 
obere der neu entstandenen Teilfolgen 
der genannten Prozedur unterworfen, 
und zwar solange, bis beim Teilungsvor- 
gang nur eine Teilfolge mit zwei Ele- 
menten resultieren wurde, für die unser 
Algorithmus nicht mehr relevp-t i«‘ 


7t, 00 rem umorc-nen 

7601 REM EINGABE:ZM,Z<.I> I=C0.2'2M-13 AUSGA6E:Z<I ) 

7602 REM INTERNE UaPI aBLEi ZA. ZI . ZJ> ZK , ZL . Zl , Z2, ZA< J> K> . ZLCJ. K) 

7607 REM UNTERRRÜGRAMM IN REt URS I "ER PROGRAMMIERUNG ZUM UMORONEN EINER ZAHLEN 
7604 REM FOLGE Z<I> MIT EINER hIChHL UOM 2'ZM ELEMENTEN WIE FOLGT: 

760? REM C IE TEILFOLGE MIT GERaCEN INPIZES. Z‘.2*J>. WIRD AUF PIE ERSTE HAELFTE 

7606 REM [>ER PLaETZE GELEGT. C IE RESTLICHE TEILFOLGE, Z<2*Jtl>. AUF DIE ZWEITE 

7607 REM HaELFTE. C IE ORDNUNG INNERHALB CER TEILFOLGEN BLEIBT ERHhLTEN. 

7606 FEM C€Ni T MaN SICH PIE INDIZES BINhER GEGEBEN. IST DIESE UNORDNUNG EINE 
760A REM ZUSAMMENFASSUNG PER ELEMENTE MIT NIECER WERTIGSTEM BIT 0 IN CER ERSTEN 
7610 REM HaELFTE. CER ELEMENTE NIT NIEC ERuERT IGSTEM BIT 1 IN CER ZWEITEN. 

7612 REM CIE hNZaHL PER FEI URS I UNS EBENEN IST DURCH IMPLIZITE DIMENSIONIERUNG 

7613 REM AUF II BESCHRmEMKT ■ PROGRAMM GGF. MIT PIM ZNCN.M) .ZLiN.M> ERWEITERN. 
7610 Zt -ü: Z >=0: Zm=0: ZL=2 ZM 

7620 IFZL »2THENRETURN 

7622 FOR'ZI =0TCCL 4-1 :Z1 =ZI»Z It|tZA:Z2»Zl -1*ZL 2:ZS*ZCZ1> 

7623 ZCZl ’=Z< Z2 > : Z' Z2 >=ZS: NEDT 

7624 ZL < ZT , Zt > =ZL : Za ( ZJ . ZK .' =Za: Z J=Z J* 1 : ZL*ZL ■ 2 : G0SUB7620 
762? Z.1=ZJ-1:ZL=ZLCZJ.ZK':Za=Za'ZT.ZK1 

7626 ZK =Zt ♦ 1 : ZL=ZL^2 : Za=ZA*ZL : GOSUB 7620: ZK«ZK- 1: ZL=ZLK Z J . ZK) l ZA=ZAv Z J . ZK ) 

7628 RETURN 
REaPV. 


Bild 1. Das Programm 
„Umordnen“ 


3/1983 


33 




mc-grund lagen 


» 


Wenn die Schachtelung in die Tiefe ihr 
Ende gefunden hat, müssen die Opera- 
tionen auf die zweite Folge in der je- 
weils darüber liegenden Ebene ange- 
wendet werden. 

All dies wird mit den folgenden Anwei- 
sungen erreicht: 

100 ZA = 0 

200 ZL = 2 f ZM 

300 IF ZL < = 2 THEN RETURN 

400 REM Vertauschungsfolge 

500 ZL = ZL'2 
510 GOSUB 300 
520 ZA = ZA + ZL 
530 GOSUB 300 
fOC RETURN 

Man erkennt, daß der mit der Anwei- 
w sung 300 beginnende Programmteil 
zweimal sich selbst aufruft, entspre- 
chend der durch Halbierung entstehen- 
den Zerlegung in zwei neue Teilfolgen. 


Für jeden Aufruf Zwischenwerte 

In einer höheren Programmiersprache, 
wie z B. in Pascal, wäre damit die Pro- 
grammierung im wesentlichen abge- 
schlossen. In Basic müssen wir jedoch 
beachten, daß einige der vor dem Selbst- 
aufruf geltenden Variableninhalte, etwa 
der Inhalt von ZA, während des erneu- 
ten Programmdurchlaufes auf einer 
tieferen Ebene verändert werden, diese 
Inhalte aber bei Rückkehr auf die höhere 
Ebene noch bekannt sein müssen. Die 
spater noch benötigten Variablenwerte 
werden deshalb in unserem Programm 
vor dem Selbstaufruf in einer Feldvaria- 
blen verwahrt, deren Index die Pro- 
grammebene kennzeichnet Da in unse- 
rem Verfahren je Ebene zweimal ein 
Selbstaufruf vorkommt, müssen wir so- 
gar eine zweifach indizierte Feldvariable 
nehmen. So wird der Anfangsindex ZA 
der jeweiligen Ebene in ZA(ZJ, ZK) ge- 
speichert. ZJ kennzeichnet die Ebene, 

ZK kennzeichnet, ob der im Feld gespei- 
cherte Wert für die obere oder für die 
untere Teilfolge in dieser Ebene gelten 
soll ZK nimmt dementsprechend nur 
Werte 0 (oben) oder 1 (unten) an. Das 
gesamte Programm finden Sie in Bild 1. 
Das Programm läßt erkennen, wie vor 
und nach jedem Selbstaufruf die für die 
jeweilige Ebene benötigten Werte von 
ZA und ZL verwahrt bzw. wieder her- 
vorgeholt werden. Es läßt auch erken- 
nen, wie der Ebenenindex ZJ und der 
Hälftenindex ZK herauf- und herabge- 
setzt werden. 


Z 



Bild Z. Mehrfache Integration ist 
zum Beispiel bei der Berechnung 
des Trägheitsmomentes eines Kreis- 
zylinders vonnoten 


Das gesamte Programm ist erstaunlich 
kurz, für den mit rekursiver Technik 
nicht vertrauten Leser möglicherweise 
nicht so einfach zu durchschauen. Ver- 
suchen Sie es einmal ohne Rekursion. 
Bei der rekursiven Programmierung in 
Basic und den damit verbundenen ge- 
schachtelten Anweisungen GOSUB ist 
noch zu beachten, daß Mikrocomputer 
in der Regel nur eine beschränkte An- 
zahl von nicht abgeschlossenen GOSUB- 
Anweisungen gleichzeitig verwalten 
können. Hinzu kommt, daß der für die 
GOSUB-Verwaltung zuständige Spei- 
cherbereich meist auch für die Verwal- 
tung anderer Anweisungen verwendet 
wird, zum Beispiel für die Verwaltung 
der Wiederholungsanweisung FOR... 
NEXT. Wenn bei rekursiver Program- 
mierung eine größere Anzahl von Ebe- 
nen zu erwarten ist, sollte man in sol- 


chen Fällen darauf achten, daß mög- 
lichst alle Schleifen abgeschlossen sind. 

Rekursion nützlich angewandt 

Naheliegend ist die rekursive Program- 
mierung in der Praxis für die Berech- 
nung von Mehrfachintegralen. Als Test- 
beispiel eignet sich die Berechnung des 
Trägheitsmomentes eines Kreiszylinders 
mit der Masse M in bezug auf eine Achse 
x senkrecht zur Symmetrieachse z (siehe 
Bild 2), das gemäß 

H/2 2» R 

T„ = M • 2 • J J J 
0 0 0 

( (r sin qp ) 2 + z 2 ) r dr dtp dz 

gegeben ist. Das Resultat ist bekannt, 

T„ = M • (R 2 +yH 2 ) 

die numerische Berechnung läßt sich al- 
so an diesem Beispiel testen. 

Haben wir ein Quadratur-Programm, al- 
so ein Programm zur Berechnung be- 
stimmter Integrale zu Hand und wenden 
wir es für die Berechnung des äußeren 
Integrals 
112 

J F(z) dz 
0 

an. dann müssen wir in diesem Pro- 
gramm wiederholt Werte des Inte- 
granden 

2n 

F(z) = f G(z,qp) dtp 
o 

berechnen. Diese Werte verlangen ihrer- 
seits die Berechnung eines Integrals. Die 
Berechnung ist mit dem gleichen Qua- 
draturprogramm zu bewältigen. Schließ- 
lich verlangt die Berechnung des Inte- 
granden für das zweite Integral wieder- 
um eine Quadratur, nämlich die Berech- 
nung des bestimmten Integrals 


Spruch 


Honats 


„Zwei Dinge machen mir Sorgen: Die Entwicklung von 
Mikroprozessor-Platinen und Peripherie-Platinen ist 
durch das BMFT derart gefördert worden, daß der jetzt 
schon dichte Markt auf diesem Sektor mit einem Über- 
angebot rechnen muß. Zum zweiten ist die jetzige 
Euphorie nicht angebracht, wenn es nicht gelingt, die 
neu entwickelten Produkte auch in den Markt zu brin- 
gen. Gerade hier treten aber auch die höheren Kosten 
und häufig auch die größeren Probleme gegenüber der 
Entwicklung auf. Ich wünschte mir, viele gute Entwick- 
ler wären ebenso gute Marktanalytiker," 


H. D. Krel, als Vorstandsmitglied der Interessengemeinschaft Elektronik e V. zuständig für 
die BMFT-Förderung, auf einer Mitgliederversammlung der I G E L. 
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R 

G(z,q>) = | ((r sin <p) z + z 2 ) r dr 

0 

Insgesamt ist also ein dreifach geschach- 
telter rekursiver Aufruf erforderlich. 
Wir legen für die rekursive Berechnung 
des Mehrfachintegrals ein Quadratur- 
programm zugrunde, das die Gaußsche 
Quadraturformel verwendet. Soll damit 
ein Integral 

b 

| f (x) dx 


berechnet werden, so zerlegt man das 
Intervall |a, b) in gleich lange Teilinter- 
valle. Über jedem dieser Teilintervalle 
mit Anfangspunkt Xa und Länge 2h wird 
gemäß 

Xa + 2 h 

J f(x) dx = h { f(x A + h ■=) 

V 3 

+ f,XA + h + 

der zugehörige Beitrag zum gesamten In- 
i tegral berechnet. Die nachfolgende Pro- 


grammversion mit Namen QUADRA- 
TUR, die diesen Algorithmus verwen- 
det, ist im Hinblick auf die rekursive 
Verwendung etwas umständlich ge- 
schrieben worden. Anfangswert a und 
Endwert b müssen vor Aufruf von QUA- 
DRATUR in ZA und ZB vorgegeben sein, 
die Anzahl derTeilintervalle in ZD. Der 
Integrand z = f(x) wird im Unterpro- 
gramm lN'TEGRAND berechnet. Bei Auf- 
ruf von INTEGRAND liegt der Wert x in 
der Variablen ZX, das Ergebnis z = f(x) 
soll in die Variable Z gespeichert wer- 
den. Das Programm INTEGRAND muß 


Bild 3. Quadratur nennt man die 
Berechnung des Wertes bestimmter 
Integrale, denn diese W'erte können 
als Flächeninhalt, als Quadrat ge- 
deutet werden 


100 FEM PUhDPmTUR 

101 FEM EINGhBE: ZH.ZB.ZD WUSGmBE : ZC 

102 FEM BF RECHNUNG DES BESTIMMTEN INTEGF'WLS EINER FUNKTION Z*F<2X> UEBFP (EM 

103 FEM Hilf MM I (Zn.ZBI. Dh IN 2t' GIF ICHwB TmNDIuE TEILE ZERLEGT MI«'. 

104 FEM MEF1E t'EF FUN1 T ION LIEFT 'EN IM UNTFFFFOGRhHM ZEILE 1 40 BERECHNET DwS 

105 FEM NOCH EPUhENZT WUERtEH MUSS. C'hS ERGEBNIS LI I Ft' IN ZC hBGESF'E ICHEPT. 
10? FEM hNFwMGSWEPTE 

110 23*1 SOF'* 3 ) s 2H= < Z8-ZW ' z2t'/ 2 ! ZB*Zh*ZH*< 1 +23 ) 1 ZH»ZW*ZH*< 1 -23 ) 

120 ZC *Oi2I=0 

121 FEM mHFhNG SCHLEIFE 

122 Z.T=üi2X=Zw 

124 GÜSUB1 42IREM INTEGRAND BERECHNEN 

126 2C*2C*2i IF2.1*1THENGOTO130 

128 2J=H2 :=2B!G0T0124 

130 21=21 ♦ l ! IF 21 ZD- 1 THENGOT 0134 

1 32 2h=2m+ 2H»2H: ZB=ZB=ZH»2Hi GOT0122 

133 FEM EIKE SCHLEIFE 

134 2C=ZC *2H: PETUF'N 

140 FEN INTEGFmNC' 

141 FEM BERECHNUNG DES INTEGPhNDEN HN PER STELLE 2X UND («SPEICHERN IN 2 

142 2= 

14? RETURN 
REhDV. 


PEwDV. 


MULTIQUhDGhUS 

EINt2L.21<I)»22<I>»2D«Ii I=tl.2LJ mUSi2C INTERNE UhRIhBLEiZh.ZB.ZD, 
2H, 21 ,2 1. ZU, Z3>2w< I > 1 2B< I> >2C( I > p 2H( I > > ZI ( I > t ZJ( I > > ZX< I ) I=Cl.ZL3 
UNTEFFFOGFwMM ZUR BERECHNUNG EINES MEHFFhC HIIITEGFWL? MIT LONSTwNTEN 
GRENZEN NmCH (EM GWIJSS’ SCHEU PUhDPhTUF"EPFhHFEN MIT FEI UPS I 'ZN. 

DIE "IELFhCHHEIT IST IN 2L 1 'ORZUGEBEN ■ ['IE UNTEFEH GRENZEN IN Z1<I>, 
DIE OBEREN GFEHZEtl IN 22' I). DIE ZERLEGUNGEN IN ZD<I>. DIE INTEGFwTI- 
ONSUmFIhBLEN MERTEN "Oll IHNEN NmCH hUSSEN GEZhEHLT. DIE INNERSTE 
"hFIhBLE hhT [.Eli INDEX ZL = 1. 

DER INTEGF-wNC' MUSS IM UNTER FF.ÜGF'mMM 2550 mLS FUt* TIOM "C<N 2X*'l) 

I = 1 1 , ZL 3 BERECHNET UND UNC' IN ZC hBGELEGT LIEF DEN. "OF mUFFFUF DhS 
UNTEFFFOGFwMM 2550 ERGwENZEN' [*hS Eilt 'ERGEBNIS WIRD IN ZC hEiGELEGT. 
2512 IFZI4GOTO2520 

25 1 8 t I MZh ■ 2L < , ZB • ZL > . ZH i ZL • , Z I ' ZL > . 2 J • 2L > - 2X < 2L > . ZC < 2L > : 2 3= 1 - SC'P <3>! ZW* 1 
251? FEM RmFmMETEF 

2520 2C C 2L • =0i Zh= 21 > 2L > : ZB=Z2< 2L > ! ZD=ZD < 2L > i ZH= • ZB-2w > ZC'/2 

2522 ZB=Zh*2H»' 1 ♦23>i2h*2h*2H*< 1 -23) 

2523 FEM SCHLEI FENhNFmHG 

2524 21=0 

2526 Z 1=0! 2X< 2L ■ =2m 

2528 I FZL = 1 THENGCISUB2550! GOT02536 

252? FEM FEL URS I OM 

2530 ZW'ZL *«2hs 26«2L>*Z6*2H<2L)*ZH!2I<2L)*2I»ZJ<ZL>*2JtZL*2L-l 
2532 GO8UB2520 

2534 2L=2L*1!2w=2h' 2L>i 2B=26'2L > !2H=2H<2L>i 21=21 <.2L)i2J=2J'2L)iZD=2C'<2L) 

2535 FEM EIK E F EI UPS ION 

2536 ZCC2L >=2C <ZL »ZC ! IF2 JGOTO2540 
2538 Z J= I ! 2ÄC2L )=ZBiG0T02528 

2540 ZI=2I»l: IF2I ZD-IG0T02544 

2542 Zm=2m>ZH*ZH! ZB=Z 6*ZH+2HlGOT02526 

2543 FEM SCHLEIFENEIK'E 

2544 2C=ZC < ZL >*ZHi RETURN 

2550 FEM IHTEGFhND hLS FUNITION UON ZX(1 ),ZX(2> 

2552 ZC= 

2553 RETURN 

REWDV. 


2500 FEM 

2501 FEM 

2502 FEM 

2503 FEM 

2504 FEM 

2505 FEM 

2506 FEM 
2502 FEM 
2508 FEM 
250? FEM 

2510 FEM 

2511 FEM 


Bild 4. Multiquadgaus rechnet 
Mehrfachintegrale aus 
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entsprechend dem jeweiligen Integran- 
den f(x) noch ergänzt werden. Das End- 
resultat. das Ergebnis der Quadratur, 
wird in ZC abgelegt. Soweit die Be- 
schreibung des für die Mehrfachintegra- 
tion zugrunde liegenden Quadraturpro- 
grammes (Bild 3). 

Bei der rekursiven Verwendung von 
QUADRATUR müssen wir, wie bereits 
am ersten rekursiven Programmbeispiel 
im einzelnen erläutert, vor und nach 
dem Selbstaufruf die den einzelnen Ebe- 
nen zugehörigen Variablenwerte noch 
verwahren und wieder hervorholen und 
die Programmebenen durch eine Index- 
variable kennzeichnen. Wie dies im ein- 
zelnen erreicht werden kann, zeigt das 


Programm MULTIQUADGAUS. Durch 
Vergleich mit QUADRATUR kann der 
Leser die zusätzlichen Anweisungen 
und Variablen erkennen ( Bild 4). 

Man beachte dabei, daß jetzt drei unab- 
hängige Variable, nämlich z. cp und r 
Vorkommen, so daß statt einer (Rech- 
ner-)Variablen ZX ein Feld ZX(I) einge- 
führt wurde. Man beachte ferner, daß 
MULTIQUADGAUS nicht speziell für 
Dreifachintegrale gedacht ist. sondern 
für Mehrfachintegrale beliebiger Viel- 
fachheit. 

Die Vielfachheit muß beim Aufruf in der 
Variablen ZL vorgegeben werden. In un- 
serem Testbeispiel, nämlich bei der Be- 
rechnung eines Dreifachintegrals, 


gilt ZL = 3. Das nachfolgend angege- 
bene Hauptprogramm TESTMULTI- 
QUADGAUS zeigt, wie mit dem Un- 
terprogramm MULTIQUADGAUS die 
Berechnung des Trägheitsmomentes des 
Kreiszylinders durchgeführt wird. Als 
Ergebnis ist der genaue Wert und der 
numerisch berechnete Wert mit der zu- 
gehörigen Zerlegung angegeben worden. 
Bei höheren Vielfachheiten hat man zu 
bedenken, daß die Rechenzeit minde- 
stens mit der dritten Potenz der Zerle- 
gung anwächst. Als letztes Beispiel für 
rekursive Programmierung bringen wir 
in Bild 7 eine Basic-Fassung des rekursi- 
ven Sortierprogrammes QUICKSORT 
aus dem Buch „Algorithmus + Data 
Structures = Programs" von N. Wirth. 


RE ADV. 

10 PEM TESTMULT IOU*DGaI>S 

11 REM BERECHNUNG DES TRhEGHE I T SMOHENTES EINES KPEISZVLINOEPS 
20 ZL=3i F0FI=1T03! FEhDZI < I)> Z2<I >s HEXT * REM EINLESEN DEP GRENZEN 
30 DmTm 0, 1, 0. 6 . 23310531 > 0. 0.5 

40 INPUT ” ZERLEGUNGEN“ : ZD< 1 > , ZD<2>.ZD<3) 

41 PPINT : PF INT •ThTEN" 

42 PPINT "UNTERE GRENZEN! ” i PPINTZ1 <1),Z1<2),Z1(3> 

43 PPINT "OBERE GRENZEN! "! PRINTZ2U >. Z2<2> ,Z2<3> 

44 PPINT "ZERLEGUNGEN! "!PPINTZD(1).ZD<2),ZDC3) 

50 S0SUBZ500 

60 PPINT:PPINT"EPGEE:NIS" 

61 PP INT "NUMERI SCH EXAKT" 

62 PPINT2*ZC.<1«-1--3>*1»'4 
20 END 

REhDV. 

2550 REM INTEGFAND ALS FUNkTlON UON 2X<1),ZX<2> ZX(ZL) 

2552 Z*ZXt3)sV«ZX<2>8X*ZX( 1 >1 ZC*X*SIN( V)lZC»ZC*ZC*Z*2i ZC»ZC*X! RETURN 

2553 RETURN 
PEADV. 

Bild 5. Das ist ein Testprogramm für Multiquadgaus 


DATEN 

UNTERE GREN2EN 
0 0 
OBERE GRENZEN < 


6.28318531 


1 

ZERLEGUNGEN > 

3 

ERGEBNIS 

NUMERISCH 

1.04719755 

PEaDY. 


Bild 6. Kein schlechtes Ergebnis - bei 
genügender Rechenzeit 


EXHKT 

1.04719755 


Bild 7. Quicksort ist ein 
berühmtes Beispiel 
rekursiver Programmierung 


7100 PEM SCHaCHTELSORTI 

7101 PEM EINGABE Za.ZE,Z<I> I=AZAZEU AUSGABE ZCI) INTERNE VARIABLE ZI.ZJ. 

7102 PEM 2K ,ZS,ZU,Z,ZYZE<I),ZI<I> I=H126U 

7103 PEM UNTERPROGRAMM ZUM DPI 'NEU EINER ZAHLENFOLGE Z<I>. IN [ER GEOFDtCTEN 

7104 PEM FOLGE IST JEDES GLIED G POE 'SEP ALS DaS VORHERGEHENDE ODER IHM GLEICH. 

7105 PEM METHODE REKURSIVE SCHAL HTELUNG. DIE FOLGE WIRD UNGEORDNET DERART, 

7106 REM Dass IN EINER ERSTEN TEILFOLGE ALLE GLIEDER ENTHALTEN SIND. 

7107 PEM DIE KLEINER SIND MLS EIN VEPGLEICHSWEPT, UNO IN EINER ZWEITEN TEIL- 

7108 FEM FOLGE ALLE GPOESSEPEN GLIEDER. ALS VEPGLEICHSWEPT WIPD DAS IN t€R 

7109 PEM MITTE DEP FOLGE LIEGENDE GLIEDGEWhEHLT. AUF DIE BEIDEN TEILFOLGEN 

7110 PEM WIPD DaS VERFAHREN ERNEUT aNGEWaNDT. DIE ZERLEGUNG IN ZWEI TEILFOLGEN 

7111 PEM WIRD IN REKURSIVER WEISE SOLANGE WIEDERHOLT. BIS DIE RESULTIERENDE 

7112 PEM TEILFOLGE AUS HOECHSTENS ZWEI GLIEDERN BESTEHT. 

7113 REM BEI AUFRUF MUSS DEP hNFmNGSINDEX CER FOLGE IN Za, DER END INDEX IN ZE 

7114 REM VORLIEBEN. DaS ORDNEN ERFOLGT INNERHALB DES FELDES Z< I > - DAHER NUR 

7115 REM WENIG ZUSaETZLICHE SPEICHERBELEGUNG. DIE ZULAESSIGE ANZAHL WIPD DURCH 

7116 REM DEN ARBEITSSPEICHER UND DURCH DIE ZULAESSIGE ZAHL ZS VON "GOSUB"- 

7117 REM SCHACHTELUNGEN BEGRENZT. OIESEZaHL GGF. IN ANWEISUNG 7120 AENDERN! 

7118 IFZh= ZETHEUF RI NT “mNFaNGS INDEX ZA => END INDEX ZE ' ERPOR" STOP 

7119 ZK *0 IFZWTHEN7121 

7120 ZS» 26. DIMZI < ZS) , ZE6ZS) ZU=1 

7121 Z1=ZA ZJ*ZE Z=2<INT<<ZA*ZE)/2>> 

7122 IFZ<ZI ) ZTHENZI=Zl4l 60T07I22 

7123 IFZ'Z<ZJ’TAENZJ=ZJ-I G0T07123 

712« IFZI »ZJTHENZV»ZCZI ) 2<ZI )»Z<ZJ) > Z<ZJ)«ZY ZI»ZI«1 ZJ»ZJ-1 

7125 IFZI ‘ZJTHEN7122 

7126 IFZa »ZJTHEN7128 

7127 ZI<ZK>=ZI ZECZK)=ZE ZE=ZJ ZK»ZK*1 G0SUB7121 ZK=ZK-1 ZI*ZKZK> ZE=ZE<ZK> 

7128 IFZI>=ZETHEN71 30 

7129 Za»ZI G0SUB7121 
71 -:0 RETURN 

REaDY. 
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rekturtaste zur automatischen oder ma- 
nuellen Korrektur von Schreibfehlern 
auf dem Blatt, eine Taste, die die Druck- 
einheit immer einen Schritt hinter das 
zuletzt geschriebene Zeichen einer Zeile 
setzt, und schließlich eine Repeat-Taste 
zum Wiederholen fast aller Zeichen und 
Funktionen. Zeilenrückschub, also das 
Zurückdrehen der Walze, ist im Gegen- 
satz zu Zeilenvorschub nur von Hand 
möglich. 

Die Maschine hat einen eigenen Spei- 
cher, der die letzten zwölf eingegebenen 
Zeichen speichert. Er ermöglicht die au- 
tomatische Korrektur auf dem Blatt und 
puffert zu schnell eingegebene Zeichen. 
Dabei stolperte unsere Testmaschine 


manchmal über ihre eigenen Beine und 
läßt ein Zeichen aus. Das kann man aber 
vermeiden, wenn man die Maschine nur 
mit etwa 5 Anschlägen pro Sekunde 
schreiben läßt. Sie braucht dann für eine 
Schreibmaschinenseite zwischen fünf 
und zehn Minuten. 

Da in der Bedienung zwischen Compu- 
ter- und Normalbetrieb der Schreibma- 
schine kaum ein Unterschied besteht, 
läßt sich das Schreiben mit Computer 
schnell erlernen. Schreibfehler werden 
schon auf dem Bildschirm korrigiert, so 
daß sie gar nicht erst auf dem Blatt er- 
scheinen. Das System erweitert sich mit 
jedem neu getippten und abgespeicher- 
ten Text ganz von selbst. Es übernimmt 


unbesehen alle auf der Schreibmaschine 
einmal vorgemachten Tastendrücke und 
beschriftet nicht nur Briefe und Um- 
schläge, sondern zieht sie auch selbst 
ein und spuckt sie nach Bearbeitung 
wieder aus. Der dabei entstehende Lärm 
entspricht dem Durchschnittslärm jeder 
anderen normalen Schreibmaschine - 
leider! Doch muß man ja nicht unbe- 
dingt daneben sitzen bleiben. 


Literatur 

Koch, /., Gandhi, S.: Anschluß einerTastatur 
und Anzeige an ein Mikrocomputersystem. 

I Siemens Technische Mitteilung aus dem Be- 
I reich Bauelemente. 


Traee- 
pregramm 
für den 
TRS-S© 


100 INPUT "WURDE SPEICHER GESCHUE TZT HB 32672?< J/N> * ,H* 

110 IF A I O " J '* THEN STOP 

120 REM ZEIGERVERBIEGUNG IN 41C4 H VORBEREITEN 

130 POKE 16836,201 /OKE 16837 , 173 POKE 16838,127 

140 RESTORE N- 32678 2=0 S< 1) *2523 S(2>=2157 S<3>*2111 S<4>»2530 

150 FOR J=250 TO 280 STEP 10 

160 SU=0 2=2*1 

170 FOR l-l TO 21 

180 REHD A SU=SU*A POKE N.H N-N«l 

190 NEXT I 

200 IF SUOS (2) THEN PRINfDATENFEHLER IN ZE ILE" . J STOP 
210 NEXT J 

220 POKE 16836.195 REM ZEIGER VERBIEGEN 
230 END 

250 DH TA 0,145.49,48.58,150.58,34.160,127.235,34,162, 
127,225,209.213.229.213,22,25 
260 DATA 30, 198 . 25 . 209 , 223 . 40 . 1 1 , 42 , 162 . 127 . 235 . 42 , 160 
127,175.201.0,0.53.27.65 

270 DATA 183,40,239,58.166,127,183.32,24,50.27.65,47,50. 

166 . 127 . 42 . 160 . 127 .34.164 

280 DATA 127,225.225,33.57,0.25,229,33,166,127.201.175, 

50.166.127.42.164 127 , 24 , 207 

290 REM HEXCODES ALS VEPGLE ICH009131303A963A22A07FEB22A27FE1 
D1D5E5D516191EC619D1DF290B2AA27FEB2AA07FAFC900903A1B41 
300 REM B728EF3AA67FB72010321B4 12F32A67F2AA07F22A47FE IE 12 13900 
19E52 1 A67FC9AF32A67F2AA47F 18CF 


Bild 1. Initialisierungsprogramm für die Trace-Koulinc. Nach dem Laden von der Kassette 
oder Floppy und dem Start mit RUN kann es mit NEW wieder gelöscht werden, da es eine 
Maschinenroutine erzeugt. Die REM-Zeilen müssen nicht eingegeben werden 


10 PRINT IF A-AH AND I = I H THEN 60 
20 IF AOAH THEN PP[NT"A ,AH, '-",A AH-A 
30 IF IOIH THEN PRINT“ I ; IH;“-" ; I IH=! 
40 XX»=INKEV» IF XX»="" THEN 40 
50 RETURN 

60 IF ST-1 THEN 40 ELSE 50 


Bild 2. Beispielprogramm zum Ausdruck sich verändernder Variablen 


Hat man ein Basic-Programm so erstellt, 
daß es syntaktisch richtig ist und läuft, 
dann ist in einem letzten Schritt zu prü- 
fen, ob es auch logisch das leistet, was es 
soll. Als Hilfe stehen dem TRS-80-An- 
wender leider nur die Befehle STOP, 
TRON, TROFF zur Verfügung. Dabei ist 
die Behandlung von Haltepunkten mit 
dem STOP-Befehl umständlich, und die 
bloße Verfolgung der durchlaufenen Zei- 
lennummern ist oft zu wenig, um die 
Wirkung der Befehle zu erkennen. 

Das Basic-Programm in Bild 1 schreibt 
ein kleines Maschinenprogramm in den 
Speicherbereich hinter 7FA0 H und baut 
in 41C.4 H eine „Umleitung“ des Basic- 
Interpreters zu diesem Maschinenpro- 
gramm auf. Nach dem Lauf dieses Basic- 
Programms hat es seine Aufgabe getan 
und wird durch NEW gelöscht. Hat man 
sich bei der Eingabe nicht vertippt und 
den Speicherschutz mit MEMORY S1ZE 
= 32672 nicht vergessen, so kann man 
sich nun eine eigene Traceroutine als 
gewöhnliches Basic-Unterprogramm be- 
ginnend mit Zeile 10 schreiben (z. B. 
wie in Bild 2). 

Der Basic-lnterpreter des TRS-80 springt 
nach der Beendigung jedes Befehls vor 
der Abfrage, ob angehalten werden soll, 
zur Adresse 41C4 H. Dort stand in Level 
2 vor dem Start des Basic-Programms 
aus Bild 1 der Returnbefehl C9 H. Jetzt 
steht dort die Maschinenbefehlsfolge 


C3 H, AD H. 7F H, also ein Sprungbefehl 
nach 7FAD H. Falls sich der Computer 
im TROFF-Modus befindet, wird dort 
sofort wieder zurückgesprungen. Im 
TRON-Modus jedoch ruft das ange- 
sprungene Maschinenprogramm die Ba- 
sicroutine auf, welche ab Zeilennummer 
10 beginnt und springt erst nach deren 
Bearbeitung wieder zurück, um den 
nächsten Basicbefehl zu bearbeiten. Es 
versteht sich, daß die Basic-Trace- 


Routine ab Zeile 10 den Befehl TRON 
nicht enthalten darf. 

Die Beispielroutine aus Bild 2 verwen- 
det die Variablen ST als Flag für Single 
Step (ST = 1 ) und die Variablen AH und 
IH als Hilfsvariablen. Sie druckt den 
Wert der Variablen falls er sich seit dem 
letzten Basicbefehl geändert hat. Nach 
einem Anhalten kann durch Drücken ei- 
ner Taste im Programm fortgefahren 
werden. Dipl. -Math. Werner Linsier 
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Ein Computer erleichtert dem Benutzer die Bewältigung der auf 
ihn zukommenden Informationsflut. Daten werden eingegeben, 
gespeichert, verarbeitet und in aufbereiteter Form wieder ausge- 
geben. Dabei sind die Nachteile der Darstellung größerer Daten- 
mengen in Tabellen und Listen offensichtlich: der Zusammenhang 
geht oft verloren und die Darstellung wird leicht unübersichtlich. 
Um hier Abhilfe zu schaffen, kann man Daten auch graphisch 
darstellen. 


Die Darstellung mit Hilfe einer Kurve 
bietet eine übersichtliche und zusam- 
menhängende Möglichkeit der Abbil- 
dung größerer Datenmengen. Im Folgen- 
den ist ein Unterprogramm beschrieben, 
das beliebige Daten in einer Kurve abbil- 
det. Das Programm läuft auf einem TRS- 
80 und nutzt insbesondere die graphi- 
schen Möglichkeiten (SET(X,Y)) des Ge- 
rätes aus. Der Benutzer stellt lediglich 
die Daten, die dargestellt werden sollen, 
in einer Matrix zur Verfügung (X- und Y- 
Werte). FürX und Y können beliebige 
Werte angegeben werden, die X-Werte 
müssen jedoch linear aufsteigend sein. 
Das Programm ermittelt die Skalenwerte 
für die X- und die Y-Achse und stellt sie 
am Bildschirm dar. Anschließend wer- 
den X- und Y-Werte dem Maßstab des 
Bildschirms entsprechend ausgegeben 
(128X48 Bildpunkte). Die Menge der Da- 
ten ist beliebig. 


10 r im 2 < 100 , i) 

20 TOR I=-3.14 TO 6.26 STEP .1 
30 2< ( 1+3. 14) *10,0> = t 
40 2((I+3.14)*10,1)=SIN(1> 

58 HEXT 

60 GOSUB 60000 


Bild 1: Dieses Programm berechnet eine Si- 
nusfunktion und legt die errechneten Werte 
in Z (i. j) ab 


Bild 1 zeigt als Beispiel eines Hauptpro- 
gramms die Berechnung und Darstel- 
lung einer Sinusfunktion im Bereich — ji 
und +2jt. 


Füllen der Matrix 

Der Benutzer stellt in der Matrix Z (i, j) 
beliebig viele Werte zur Verfügung. In Z 
(i, 0) die X-Werte, inZ(i, 1 ) die Y-W'erte. 
Die Dimensionierung muß im Hauptpro- 
gramm erfolgen. Dabei ist zu beachten, 
daß die Matrix um 2 Felder größer sein 
muß, als die benötigte Anzahl Felder, 
um das Ende der Matrix erkennen zu 
können. Es gilt als erreicht, wenn zwei 
aufeinanderfolgende X-Werte Z (i, 0) 
und Z (i+1,0) gleich Null sind. 

Beispiel: die X-Werte 0,2, 4, 6, 8 und zwei 
Endekennzeichen ergeben eine Matrix, 
die mit DIM Z (6.1) oder beliebig größer 
dimensioniert werden muß. Das Pro- 
gramm führt dann die im Ablaufdia- 
gramm (Bild 2) dargestellten Schritte 
durch. Nach der Ausführung des Pro- 
gramms (Bild 3) stehen die Daten nicht 
mehr in ihrer ursprünglichen Form in Z 
(i, j) zur Verfügung. Werden sie weiter- 
hin benötigt, müssen sie vorher gesi- 
chert werden. 

Natürlich kann mit diesem Programm 
auch mehr als nur eine Kurve ausgege- 
ben werden. Die Programmerweiterun- 
gen bzw. -änderungen sind einfach. 


Für jede Kurve, die zusätzlich ausgege- 
ben werden soll, muß die Dimensionie- 
rung von Z (i, j) für die Y-Werte um 1 
erhöht werden. 

1. Kurve DIM Z (i, 1) 

2. Kurve DIM Z (i, 2)... 

Der Benutzer muß nun in Z (i, 0) die X- 
Werte zur Verfügung stellen, in Z (i, 1) 
die Y-Werte des ersten Polygonzugs, in 
Z (i. 2) die Y-Werte des zweiten, usw. 
Folgende Anweisungen sind zusätzlich 
nötig: 

60021 IF Z(I, 2) >K THEN K=Z (I, 2) 
60031 IF Z (I, 2) <L THEN L=Z (I, 2) 



Bild 2: Das Flußdiagramm zeigt die einzel- 
nen Programmschritte nach Füllen der Ma- 
trix 
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Die Anweisung in Zeile 60410 muß er- 
weitert werden: 

Z (1%, 2) = Z (1%. 2J+ABS (L):„. 
Ebenso die Zeile 60510: 

Y=40— (Z(I%. 2) -L)/(K-L)*40:SET 
(X. Y):.„ 

Programmbeschreibung 

60 000 

Festlegung von Anfangswerten für I, K, 

L.. Füllen der Ausgabemasken Zl$, Z2$. 
Dimensionierung der Y-Achse. 

60 010 

Erkennen, wie weit die Matrix mit Daten 
gefüllt ist. Ende, wenn zwei aufeinan- 
derfolgende X-Werte gleich Null sind. ] 
erhält den Index des letzten gefüllten 
Matrixelements. 

<>() 020 - 60 030 

ststellen des größten (K) und des 
'Tleinslen (L) Y-Wertes in der Matrix. 

60 040 

Da das Ende der Matrix noch nicht er- 
reicht ist, wird der Index 1 umd 1 erhöht. 
60 100 - 60 110 

Ermittlung der Skala für die X-Achse. 7 
Skalenwerte werden ermittelt und in 
X(0) bis X(6) gespeichert. 

60 200 - 60 210 

Ermittlung der Skala für die Y-Achse. 14 
Skalenwerte werden ermittelt und in 
Y(0) bis Y(13) gespeichert. 

60 300 - 60330 

Ausgabe der ßildschirmmaske, d. h. X- 
und Y-Achse und Punktraster. 

60 400 - 60 410 

Wenn negative X- oder Y-Werte Vorkom- 
men, muß dafür gesorgt werden, daß alle 
Werte größer oder gleich Null sind. 

60 500 - 60 510 

asgabe des Polygonzug. Enthält die 
^vlatrix weniger als 1 00 Werte, können 
alle Werte ausgegeben werden (Schritt- 


REM U N T E R P R 0 G R A M M 

DI HY (13) i ZI #•*■* Z2*-" 

M i I-OiK-Z (I. 1 ) iL-Z (I. 1) 

IFZ < 1 ,0) -OANDZ < IM .0) -OTHENJ* I - 1 * GOT06010C 
IF Z < 1 , 1 ) >KTHENK«Z (1 , 1> 

IFZ (1,1) <LTHENL-Z (1,1) 

I«I*1 t G0T060010 

XZ*(?<J.0)-Z<0,0) >/6iX (0)-Z(0,0) |X<6)-Z<J,0) 

FORIX-lTOSi X < IX>*X < r/.-l ) ♦XZiNEXT 
YZ = <K-L ) / 1 3l Y (O) *L« Y < 1 3) *K 
F0Riy.*lT012sY<IX)»Y<IX-l)^YZ*N£XT 

CLStFORIV.»OT013iPRINT^64* IV., M " | i PR INTUS ING Z 1*; Y < 13— IX) ; :PRINTZ2t» *N 
EXT 

F0RIX*0T06sPRlNTd9A5^8*IX, M "| s PRINTUSINGZ 1 1| X <IX) * :N£XT 
F0RIX*0T042l SET (19, IX) sNEXT 
F0RIX*19T0125: SET ( IX. 43) : NEXT 

IF Z (0, O) * >0THEN6O4 1 OELSEFOR I X-J TOOSTEP- 1 s Z ( I X, 0 ) « Z ( 1 X, O ) ♦ABS ( Z <0, 0 ) 
) i NEXT 

IFL = v0TH£N6O5OOELSEF0RIX*»0T0J * Z ( IX, 1)«Z < IX, 1 > ♦ABS(L) s NEXT j »■-»<♦ ABS <L 
) iL-0 

IFJ * 100THENS* 1ELSES-J / 100 

FORIX-OTOJSTEPS* X- ( Z < IX, O) -Z < O. O) ) / < Z < J , 0) -Z(O.O) )• 100^21 : Y«=40- <Z < I 
X, 1>-L>/<K-L) MO« SET ( X, Y) : NEXT 
IF!f#EY$- M *• THE N65000ELSERE TURN 


Bild 3: Das Unterprogramm zur Darstellung der errechneten Werte auf dem Bildschirm 


Tabelle: Die Variablenliste des Programms 


1 

letzter Tabellenplatz 

K 

größter Y-Wert 

L 

größter Y-Wert 

XZ 

Faktor zur Ermittlung der Skalenwerte des X-Achse 

X (0) - X (5) 

Skalenwerte der X-Achse 

YZ 

Faktor zur Ermittlung der Skalenwerte der Y-Achse 

Y (0) - Y (13) 

Skalenwerte der Y-Achse 

X 

Bildpunkt-Koordinate 

Y 

Bildpunkt-Koordinate 

Zl$ 

Maske für PRINT USING der Skalenwerte 

Z2$ 

Punktraster für Ausgabebild 

S 

Schrittweite zur Ausgabe der Matrix 


weite S=l). Bei mehr als 100 Werten, werden (S=J/100). 
kann nur eine Teilmenge zur Darstel- 65 000 

lung des Polygonzugs herangezogen Rücksprung ins Hauptprogramm. 


POP mit Flags 

Sehr häufig tritt bei 8080-, 8085- oder 
Z80-Software das Problem auf, daß man 
sich den Akku erhalten möchte, die 
Flags jedoch für nachfolgende Verzwei- 
gungen in einem veränderten Zustand 
belassen möchte. Die PUSH-POP-Kom- 
bination führt hier nicht zum gewünsch- 
ten Ergebnis, da die Flags dabei ja auch 
wieder in den alten (unerwünschten) 
Zustand zurückgesetzt werden. Mit nur 
zwei zusätzlichen Befehlen läßt sich der 
Akku wiederherstellen, ohne die Flags 
zu zerstören. Anstelle von POP AF (bzw. 
POP PSW) tritt die Befehlsfolge EX 
(SP).HLLD A.H/POP HL (bzw. XTHL/ 
MOV A.H/POP H). 


Das Anwendungsbeispiel im Bild zeigt 
die Abfrage eines Doppelregisters (hier 
das Registerpaar BC) nach Null. Das Er- 


gebnis dieser Operation setzt das Zero- 
Flag nur dann, wenn der Inhalt des Regi- 
sterpaares Null ist. Herbert Poluch 


Z80 

8080/8083 



PUSH AF 

PUSH PSW 

1 AKKU RETTEN 


LD A.B 

MOV A.B 

1 HIGHER BYTE LADEN 


OR C 

ORA C 

I VERGLEICH MIT LOWER 

BYTE 

EX ( SP) t HL 

XTHL 

I AKKU NACH H und HL 

RETTEN 

LD A.H 

MOV A.H 

1 AKKU RESTAURIEREN 


POP HL 

POP H 

I HL EBENSO 


JP Z.BCNULL 

JZ BCNULL 

5 JUMP WENN BC GLEICH 

0 


Kleine Unterschiede zwischen Z80 und 8080/8085 sind beim Zurückhnlen des Akkus vom 
Stack ohne Flag-Zerstörung zu sehen 
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